home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume11 / tcsh.4.3 / part01 next >
Encoding:
Internet Message Format  |  1987-09-27  |  59.0 KB
  1. Subject:  v11i084:  Tcsh for 4.3 CSH, Part01/02
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rs@uunet.UU.NET
  5.  
  6. Submitted-by: chris@nrcvax.uucp (Chris Grevstad)
  7. Posting-number: Volume 11, Issue 84
  8. Archive-name: tcsh.4.3/part01
  9.  
  10. This stuff is to adapt Paul Placeway's tcsh to BSD4.3 csh.
  11.  
  12. The files tcsh.DIFF* are to replace the DIFFS* files that got distributed
  13. with the tcsh stuff in volume 10 of comp.sources.unix.
  14.  
  15. Be sure to replace DIFFS.1 with tcsh.DIFFS.1 and DIFFS.2 with tcsh.DIFFS.2.
  16. At that point you should be able to follow the directions included in the
  17. README file.
  18.  
  19.     Chris Grevstad
  20.     chris@nrcvax.UUCP
  21.     ..!ihnp4!nrcvax!chris
  22.     chris@trwind.trw.com
  23.  
  24. #! /bin/sh
  25. # This is a shell archive, meaning:
  26. # 1. Remove everything above the #! /bin/sh line.
  27. # 2. Save the resulting text in a file.
  28. # 3. Execute the file with /bin/sh (not csh) to create:
  29. #    DIFFS.1
  30. # This archive created: Thu Sep 24 16:28:11 1987
  31. export PATH; PATH=/bin:/usr/bin:$PATH
  32. if test -f 'DIFFS.1'
  33. then
  34.     echo shar: "will not over-write existing file 'DIFFS.1'"
  35. else
  36. cat << \SHAR_EOF > 'DIFFS.1'
  37. *** sh.c    Sat Mar 29 07:17:01 1986
  38. --- /usr/src/local/tcsh/sh.c    Thu Sep 17 23:22:08 1987
  39. ***************
  40. *** 7,12
  41.   #ifndef lint
  42.   static char *sccsid = "@(#)sh.c    5.3 (Berkeley) 3/29/86";
  43.   #endif
  44.   
  45.   #include "sh.h"
  46.   #include <sys/ioctl.h>
  47.  
  48. --- 7,13 -----
  49.   #ifndef lint
  50.   static char *sccsid = "@(#)sh.c    5.3 (Berkeley) 3/29/86";
  51.   #endif
  52. + static char *Version = "tcsh 5.4 (Ohio State) 7/18/87 Patch level 0";
  53.   
  54.   #include "sh.h"
  55.   /* #include <sys/ioctl.h> */
  56. ***************
  57. *** 9,15
  58.   #endif
  59.   
  60.   #include "sh.h"
  61. ! #include <sys/ioctl.h>
  62.   /*
  63.    * C Shell
  64.    *
  65.  
  66. --- 10,27 -----
  67.   static char *Version = "tcsh 5.4 (Ohio State) 7/18/87 Patch level 0";
  68.   
  69.   #include "sh.h"
  70. ! /* #include <sys/ioctl.h> */
  71. ! 
  72. ! #ifdef SVID
  73. ! struct termio termiob;
  74. ! 
  75. ! # ifdef OREO
  76. ! struct ltchars ltcbuf;
  77. ! #include <compat.h>
  78. ! # endif OREO
  79. ! 
  80. ! #endif SVID
  81. ! 
  82.   /*
  83.    * C Shell
  84.    *
  85. ***************
  86. *** 18,23
  87.    *
  88.    * Jim Kulp, IIASA, Laxenburg, Austria
  89.    * April 1980
  90.    */
  91.   
  92.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  93.  
  94. --- 30,55 -----
  95.    *
  96.    * Jim Kulp, IIASA, Laxenburg, Austria
  97.    * April 1980
  98. +  *
  99. +  * Filename recognition added:
  100. +  * Ken Greer, Ind. Consultant, Palo Alto CA
  101. +  * October 1983.
  102. +  *
  103. +  * Karl Kleinpaste, Computer Consoles, Inc.
  104. +  * Added precmd, periodic/tperiod, prompt changes,
  105. +  * directory stack hack, and login watch.
  106. +  * Sometime March 1983 - Feb 1984.
  107. +  *
  108. +  * Added scheduled commands, including the "sched" command,
  109. +  * plus the call to sched_run near the precmd et al
  110. +  * routines.
  111. +  * Upgraded scheduled events for running events while
  112. +  * sitting idle at command input.
  113. +  *
  114. +  * Paul Placeway, Ohio State
  115. +  * added stuff for running with twenex/inputl  9 Oct 1984.
  116. +  *
  117. +  * ported to Apple Unix (TM) (OREO)  26 -- 29 Jun 1987
  118.    */
  119.   
  120.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  121. ***************
  122. *** 23,30
  123.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  124.   char    *dumphist[] =    { "history", "-h", 0, 0 };
  125.   char    *loadhist[] =    { "source", "-h", "~/.history", 0 };
  126. ! char    HIST = '!';
  127. ! char    HISTSUB = '^';
  128.   bool    nofile;
  129.   bool    reenter;
  130.   bool    nverbose;
  131.  
  132. --- 55,62 -----
  133.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  134.   char    *dumphist[] =    { "history", "-h", 0, 0 };
  135.   char    *loadhist[] =    { "source", "-h", "~/.history", 0 };
  136. ! /* char    HIST = '!'; */
  137. ! /* char    HISTSUB = '^'; */
  138.   bool    nofile;
  139.   bool    reenter;
  140.   bool    nverbose;
  141. ***************
  142. *** 34,39
  143.   bool    batch;
  144.   bool    prompt = 1;
  145.   bool    enterhist = 0;
  146.   
  147.   extern    gid_t getegid(), getgid();
  148.   extern    uid_t geteuid(), getuid();
  149.  
  150. --- 66,79 -----
  151.   bool    batch;
  152.   bool    prompt = 1;
  153.   bool    enterhist = 0;
  154. + bool    tellwhat = 0;
  155. + int    phup();
  156. + time_t    t_period;
  157. + time_t    watch_period = 0;
  158. + struct who *wholist;
  159. + bool    precmd_active = 0;
  160. + bool    periodic_active = 0;
  161. + char    buff[128];        /* for gethostname(2), and printprompt() */
  162.   
  163.   extern    gid_t getegid(), getgid();
  164.   extern    uid_t geteuid(), getuid();
  165. ***************
  166. *** 38,43
  167.   extern    gid_t getegid(), getgid();
  168.   extern    uid_t geteuid(), getuid();
  169.   
  170.   main(c, av)
  171.       int c;
  172.       char **av;
  173.  
  174. --- 78,111 -----
  175.   extern    gid_t getegid(), getgid();
  176.   extern    uid_t geteuid(), getuid();
  177.   
  178. + #define DEFAULT_AUTOLOGOUT    "60"    /* 1 Hour Alarm default */
  179. + 
  180. + auto_logout ()
  181. + {
  182. +     printf ("auto-logout\n");
  183. +     close (SHIN);
  184. +     set ("logout", "automatic");
  185. +     child++;
  186. +     goodbye ();
  187. + }
  188. + 
  189. + alrmcatch ()
  190. + {
  191. +     extern    struct    sched_event *sched_ptr;
  192. +     time_t    cl;
  193. + 
  194. +     if (!sched_ptr)
  195. +         auto_logout();    /* no other possibility - logout */
  196. +     time(&cl);
  197. +     if (sched_ptr->t_when <= cl + 1)
  198. +         sched_run();
  199. +     else
  200. +         auto_logout();
  201. +     setalarm();
  202. + }
  203. + 
  204. + char    *ttyname();
  205. + 
  206.   main(c, av)
  207.       int c;
  208.       char **av;
  209. ***************
  210. *** 47,52
  211.       struct sigvec osv;
  212.   
  213.       settimes();            /* Immed. estab. timing base */
  214.       v = av;
  215.       if (eq(v[0], "a.out"))        /* A.out's are quittable */
  216.           quitit = 1;
  217.  
  218. --- 115,128 -----
  219.       struct sigvec osv;
  220.   
  221.       settimes();            /* Immed. estab. timing base */
  222. + #ifdef OREO
  223. +     set42sig();
  224. +     setcompat (COMPAT_BSDPROT | COMPAT_BSDNBIO | COMPAT_BSDSIGNALS |
  225. +           COMPAT_SYSCALLS);
  226. + #endif
  227. +     HIST = '!';
  228. +     HISTSUB = '^';
  229. + 
  230.       v = av;
  231.       if (eq(v[0], "a.out"))        /* A.out's are quittable */
  232.           quitit = 1;
  233. ***************
  234. *** 56,61
  235.           (void) time(&chktim);
  236.   
  237.       /*
  238.        * Move the descriptors to safe places.
  239.        * The variable didfds is 0 while we have only FSH* to work with.
  240.        * When didfds is true, we have 0,1,2 and prefer to use these.
  241.  
  242. --- 132,144 -----
  243.           (void) time(&chktim);
  244.   
  245.       /*
  246. +      * Initialize for periodic command intervals.
  247. +      * Also, initialize the dummy tty list for login-watch.
  248. +      */
  249. +     time(&t_period);
  250. +     initwatch();
  251. + 
  252. +     /*
  253.        * Move the descriptors to safe places.
  254.        * The variable didfds is 0 while we have only FSH* to work with.
  255.        * When didfds is true, we have 0,1,2 and prefer to use these.
  256. ***************
  257. *** 69,74
  258.        * CHILD is munged when forking/waiting
  259.        */
  260.   
  261.       set("status", "0");
  262.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  263.                        * login shell */
  264.  
  265. --- 152,181 -----
  266.        * CHILD is munged when forking/waiting
  267.        */
  268.   
  269. +     /* 7-10-87 Paul Placeway
  270. +      * autologout should be set ONLY on login shells and on shells
  271. +      * running as root.  Out of these, autologout should NOT be set
  272. +      * for any psudo-terminals (this catches most window systems)
  273. +      * and not for any terminal running X windows.
  274. +      *
  275. +      * At Ohio State, we have had problems with a user having his
  276. +      * X session drop out from under him (on a Sun) because the shell
  277. +      * in his master xterm timed out and exited.
  278. +      *
  279. +      * Really, this should be done with a program external to the
  280. +      * shell, that watches for no activity (and NO running programs,
  281. +      * such as dump) on a terminal for a long peroid of time, and
  282. +      * then SIGHUPS the shell on that terminal.
  283. +      */
  284. +     if (loginsh || getuid() == 0) { /* only for login shells or root */
  285. +         cp = ttyname(SHIN);
  286. +         if ((strncmp (cp, "ttyp", 4) != 0) &&
  287. +         (strncmp (cp, "ttyp", 4) != 0))
  288. +         if (getenv("DISPLAY") == NOSTR) /* NOT on X window shells */
  289. +             set("autologout", DEFAULT_AUTOLOGOUT);
  290. +     }
  291. + 
  292. +     signal(SIGALRM, alrmcatch);
  293.       set("status", "0");
  294.       set("tcsh", "1");        /* so I can tell the difference */
  295.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  296. ***************
  297. *** 70,75
  298.        */
  299.   
  300.       set("status", "0");
  301.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  302.                        * login shell */
  303.       if (cp == NOSTR)
  304.  
  305. --- 177,183 -----
  306.   
  307.       signal(SIGALRM, alrmcatch);
  308.       set("status", "0");
  309. +     set("tcsh", "1");        /* so I can tell the difference */
  310.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  311.                        * login shell */
  312.       if (cp == NOSTR)
  313. ***************
  314. *** 84,89
  315.           set("user", savestr(cp));
  316.       if ((cp = getenv("TERM")) != NOSTR)
  317.           set("term", savestr(cp));
  318.       /*
  319.        * Re-initialize path if set in environment
  320.        */
  321.  
  322. --- 192,199 -----
  323.           set("user", savestr(cp));
  324.       if ((cp = getenv("TERM")) != NOSTR)
  325.           set("term", savestr(cp));
  326. + 
  327. +     set ("version", Version); /* publish the shell version */
  328.       /*
  329.        * set usefull environment things for the user
  330.        */
  331. ***************
  332. *** 85,90
  333.       if ((cp = getenv("TERM")) != NOSTR)
  334.           set("term", savestr(cp));
  335.       /*
  336.        * Re-initialize path if set in environment
  337.        */
  338.       if ((cp = getenv("PATH")) == NOSTR)
  339.  
  340. --- 195,235 -----
  341.   
  342.       set ("version", Version); /* publish the shell version */
  343.       /*
  344. +      * set usefull environment things for the user
  345. +      */
  346. +     itoa (getuid(), buff);
  347. +     set ("uid", buff);
  348. +     if ((cp = getenv("HOST")) == NOSTR) { /* if not allready set */
  349. +         gethostname (buff, sizeof(buff));
  350. +         buff[sizeof(buff) -1] = '\0'; /* just in case */
  351. +         setenv ("HOST", buff);
  352. +     }
  353. +     if ((cp = getenv("HOSTTYPE")) == NOSTR) { /* if not allready set */
  354. + #ifdef vax
  355. +         setenv ("HOSTTYPE", "vax");
  356. + #endif
  357. + #ifdef sun
  358. + # ifdef mc68010
  359. +         setenv ("HOSTTYPE", "sun2");
  360. + # else
  361. + #  ifdef mc68020
  362. +         setenv ("HOSTTYPE", "sun3");
  363. + #  else
  364. +         setenv ("HOSTTYPE", "sun");
  365. + #  endif
  366. + # endif
  367. + #endif
  368. + #ifdef pyr            /* pyramid */
  369. +         setenv ("HOSTTYPE", "pyramid");
  370. + #endif
  371. + #ifdef OREO
  372. +         setenv ("HOSTTYPE", "mac2");
  373. + #endif OREO
  374. + #ifdef ns32000                  /* ugh!  This should change */
  375. +             setenv ("HOSTTYPE", "multimax");
  376. + #endif
  377. +     }
  378. +     /*
  379.        * Re-initialize path if set in environment
  380.        */
  381.       if ((cp = getenv("PATH")) == NOSTR)
  382. ***************
  383. *** 205,210
  384.           }
  385.           file = v[0];
  386.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  387.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  388.           prompt = 0;
  389.           c--, v++;
  390.  
  391. --- 350,356 -----
  392.           }
  393.           file = v[0];
  394.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  395. + #ifdef BSD4_3
  396.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  397.   #endif
  398.           prompt = 0;
  399. ***************
  400. *** 206,211
  401.           file = v[0];
  402.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  403.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  404.           prompt = 0;
  405.           c--, v++;
  406.       }
  407.  
  408. --- 352,358 -----
  409.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  410.   #ifdef BSD4_3
  411.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  412. + #endif
  413.           prompt = 0;
  414.           c--, v++;
  415.       }
  416. ***************
  417. *** 239,246
  418.       /*
  419.        * Set up the prompt.
  420.        */
  421. !     if (prompt)
  422. !         set("prompt", uid == 0 ? "# " : "% ");
  423.   
  424.       /*
  425.        * If we are an interactive shell, then start fiddling
  426.  
  427. --- 386,395 -----
  428.       /*
  429.        * Set up the prompt.
  430.        */
  431. !     if (prompt) {
  432. !         set("prompt", uid == 0 ? "# " : "> ");
  433. !         set("prompt2", "\277 "); /* that's a meta-questionmark */
  434. !     }
  435.   
  436.       /*
  437.        * If we are an interactive shell, then start fiddling
  438. ***************
  439. *** 275,280
  440.               else
  441.                   f = -1;
  442.   retry:
  443.               if (ioctl(f, TIOCGPGRP, (char *)&tpgrp) == 0 &&
  444.                   tpgrp != -1) {
  445.                   int ldisc;
  446.  
  447. --- 424,430 -----
  448.               else
  449.                   f = -1;
  450.   retry:
  451. + #ifdef BSDJOBS            /* if we have tty job control */
  452.               if (ioctl(f, TIOCGPGRP, (char *)&tpgrp) == 0 &&
  453.                   tpgrp != -1) {
  454.                   int ldisc;
  455. ***************
  456. *** 286,291
  457.                   }
  458.                   if (ioctl(f, TIOCGETD, (char *)&oldisc) != 0) 
  459.                       goto notty;
  460.                   if (oldisc != NTTYDISC) {
  461.   #ifdef DEBUG
  462.                       printf("Switching to new tty driver...\n");
  463.  
  464. --- 436,468 -----
  465.                   }
  466.                   if (ioctl(f, TIOCGETD, (char *)&oldisc) != 0) 
  467.                       goto notty;
  468. + # ifdef OREO
  469. +             if (ioctl(f, TCGETA, &termiob) != 0)
  470. +                     goto notty;
  471. +                 if ((getcompat(COMPAT_BSDTTY) & COMPAT_BSDTTY)
  472. +                     != COMPAT_BSDTTY) {
  473. + #  ifdef DEBUG
  474. +                     printf("Switching to new tty driver...\n");
  475. + #  endif DEBUG
  476. +                     setcompat(COMPAT_BSDTTY);
  477. +                     if (ioctl (f, TIOCGLTC, <cbuf) < 0) {
  478. +                     printf ("Couldn't get local chars.\n");
  479. +                     } else {
  480. + #  ifdef DEBUG
  481. +                     printf ("Setting ^Z, etc....\n");
  482. + #  endif DEBUG
  483. +                     ltcbuf.t_suspc = '\032'; /* ^Z */
  484. +                     ltcbuf.t_dsuspc = '\031'; /* ^Y */
  485. +                     ltcbuf.t_rprntc = '\022'; /* ^R */
  486. +                     ltcbuf.t_flushc = '\017'; /* ^O */
  487. +                     ltcbuf.t_werasc = '\027'; /* ^W */
  488. +                     ltcbuf.t_lnextc = '\026'; /* ^V */
  489. +                     ioctl (f, TIOCSLTC, <cbuf);
  490. +                     }
  491. +                     termiob.c_cc[VSWTCH] = '\0';
  492. +                     ioctl(f, TCSETAF, &termiob);
  493. +                 }
  494. + # else OREO
  495.                   if (oldisc != NTTYDISC) {
  496.   #  ifdef DEBUG
  497.                       printf("Switching to new tty driver...\n");
  498. ***************
  499. *** 287,293
  500.                   if (ioctl(f, TIOCGETD, (char *)&oldisc) != 0) 
  501.                       goto notty;
  502.                   if (oldisc != NTTYDISC) {
  503. ! #ifdef DEBUG
  504.                       printf("Switching to new tty driver...\n");
  505.   #endif DEBUG
  506.                       ldisc = NTTYDISC;
  507.  
  508. --- 464,470 -----
  509.                   }
  510.   # else OREO
  511.                   if (oldisc != NTTYDISC) {
  512. ! #  ifdef DEBUG
  513.                       printf("Switching to new tty driver...\n");
  514.   #  endif DEBUG
  515.                       ldisc = NTTYDISC;
  516. ***************
  517. *** 289,295
  518.                   if (oldisc != NTTYDISC) {
  519.   #ifdef DEBUG
  520.                       printf("Switching to new tty driver...\n");
  521. ! #endif DEBUG
  522.                       ldisc = NTTYDISC;
  523.                       (void) ioctl(f, TIOCSETD,
  524.                           (char *)&ldisc);
  525.  
  526. --- 466,472 -----
  527.                   if (oldisc != NTTYDISC) {
  528.   #  ifdef DEBUG
  529.                       printf("Switching to new tty driver...\n");
  530. ! #  endif DEBUG
  531.                       ldisc = NTTYDISC;
  532.                       (void) ioctl(f, TIOCSETD,
  533.                           (char *)&ldisc);
  534. ***************
  535. *** 295,300
  536.                           (char *)&ldisc);
  537.                   } else
  538.                       oldisc = -1;
  539.                   opgrp = shpgrp;
  540.                   shpgrp = getpid();
  541.                   tpgrp = shpgrp;
  542.  
  543. --- 472,478 -----
  544.                           (char *)&ldisc);
  545.                   } else
  546.                       oldisc = -1;
  547. + # endif OREO
  548.                   opgrp = shpgrp;
  549.                   shpgrp = getpid();
  550.                   tpgrp = shpgrp;
  551. ***************
  552. *** 307,312
  553.     printf("Warning: no access to tty; thus no job control in this shell...\n");
  554.                   tpgrp = -1;
  555.               }
  556.           }
  557.       }
  558.       if (setintr == 0 && parintr == SIG_DFL)
  559.  
  560. --- 485,494 -----
  561.     printf("Warning: no access to tty; thus no job control in this shell...\n");
  562.                   tpgrp = -1;
  563.               }
  564. + #else BSDJOBS            /* don't have job control, so frotz it */
  565. +             tpgrp = -1;
  566. +             printf ("Warning: jobs not implemented yet.\n");
  567. + #endif BSDJOBS
  568.           }
  569.       }
  570.       if (setintr == 0 && parintr == SIG_DFL)
  571. ***************
  572. *** 321,326
  573.       haderr = 0;        /* In case second time through */
  574.       if (!fast && reenter == 0) {
  575.           reenter++;
  576.           /* Will have value("home") here because set fast if don't */
  577.           srccat(value("home"), "/.cshrc");
  578.           if (!fast && !arginp && !onelflg && !havhash)
  579.  
  580. --- 503,512 -----
  581.       haderr = 0;        /* In case second time through */
  582.       if (!fast && reenter == 0) {
  583.           reenter++;
  584. +                 if (!fast && !arginp && !onelflg) { /* PWP setup stuff */
  585. +             ed_Init();    /* init the new line editor */
  586. +             /* PWP: setup the editor BEFORE doing .cshrc, else bugs! */
  587. +         }    
  588.           /* Will have value("home") here because set fast if don't */
  589.           srccat(value("home"), "/.cshrc");    /* upward compat. */
  590.           if (!fast && !arginp && !onelflg && !havhash)
  591. ***************
  592. *** 322,328
  593.       if (!fast && reenter == 0) {
  594.           reenter++;
  595.           /* Will have value("home") here because set fast if don't */
  596. !         srccat(value("home"), "/.cshrc");
  597.           if (!fast && !arginp && !onelflg && !havhash)
  598.               dohash();
  599.           if (loginsh) {
  600.  
  601. --- 508,514 -----
  602.               /* PWP: setup the editor BEFORE doing .cshrc, else bugs! */
  603.           }    
  604.           /* Will have value("home") here because set fast if don't */
  605. !         srccat(value("home"), "/.cshrc");    /* upward compat. */
  606.           if (!fast && !arginp && !onelflg && !havhash)
  607.               dohash();
  608.           if (loginsh) {
  609. ***************
  610. *** 350,360
  611.       /*
  612.        * Mop-up.
  613.        */
  614. !     if (loginsh) {
  615. !         printf("logout\n");
  616. !         (void) close(SHIN);
  617. !         child++;
  618. !         goodbye();
  619.       }
  620.       rechist();
  621.       exitstat();
  622.  
  623. --- 536,550 -----
  624.       /*
  625.        * Mop-up.
  626.        */
  627. !     if (intty) {
  628. !         if (loginsh) {
  629. !             printf("logout\n");
  630. !             (void) close(SHIN);
  631. !             child++;
  632. !             goodbye();
  633. !         } else {
  634. !             printf ("exit\n");
  635. !         }
  636.       }
  637.       rechist();
  638.       exitstat();
  639. ***************
  640. *** 362,368
  641.   
  642.   untty()
  643.   {
  644. ! 
  645.       if (tpgrp > 0) {
  646.           (void) setpgrp(0, opgrp);
  647.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  648.  
  649. --- 552,558 -----
  650.   
  651.   untty()
  652.   {
  653. ! #ifdef BSDJOBS
  654.       if (tpgrp > 0) {
  655.           (void) setpgrp(0, opgrp);
  656.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  657. ***************
  658. *** 366,371
  659.       if (tpgrp > 0) {
  660.           (void) setpgrp(0, opgrp);
  661.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  662.           if (oldisc != -1 && oldisc != NTTYDISC) {
  663.   #ifdef DEBUG
  664.               printf("\nReverting to old tty driver...\n");
  665.  
  666. --- 556,562 -----
  667.       if (tpgrp > 0) {
  668.           (void) setpgrp(0, opgrp);
  669.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  670. + # ifndef OREO
  671.           if (oldisc != -1 && oldisc != NTTYDISC) {
  672.   #  ifdef DEBUG
  673.               printf("\nReverting to old tty driver...\n");
  674. ***************
  675. *** 367,373
  676.           (void) setpgrp(0, opgrp);
  677.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  678.           if (oldisc != -1 && oldisc != NTTYDISC) {
  679. ! #ifdef DEBUG
  680.               printf("\nReverting to old tty driver...\n");
  681.   #endif DEBUG
  682.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  683.  
  684. --- 558,564 -----
  685.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  686.   # ifndef OREO
  687.           if (oldisc != -1 && oldisc != NTTYDISC) {
  688. ! #  ifdef DEBUG
  689.               printf("\nReverting to old tty driver...\n");
  690.   #  endif DEBUG
  691.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  692. ***************
  693. *** 369,375
  694.           if (oldisc != -1 && oldisc != NTTYDISC) {
  695.   #ifdef DEBUG
  696.               printf("\nReverting to old tty driver...\n");
  697. ! #endif DEBUG
  698.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  699.           }
  700.       }
  701.  
  702. --- 560,566 -----
  703.           if (oldisc != -1 && oldisc != NTTYDISC) {
  704.   #  ifdef DEBUG
  705.               printf("\nReverting to old tty driver...\n");
  706. ! #  endif DEBUG
  707.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  708.           }
  709.   # endif OREO
  710. ***************
  711. *** 372,377
  712.   #endif DEBUG
  713.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  714.           }
  715.       }
  716.   }
  717.   
  718.  
  719. --- 563,569 -----
  720.   #  endif DEBUG
  721.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  722.           }
  723. + # endif OREO
  724.       }
  725.   #endif BSDJOBS
  726.   }
  727. ***************
  728. *** 373,378
  729.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  730.           }
  731.       }
  732.   }
  733.   
  734.   importpath(cp)
  735.  
  736. --- 565,571 -----
  737.           }
  738.   # endif OREO
  739.       }
  740. + #endif BSDJOBS
  741.   }
  742.   
  743.   importpath(cp)
  744. ***************
  745. *** 421,426
  746.       register char *ep = strspl(cp, dp);
  747.       register int unit = dmove(open(ep, 0), -1);
  748.   
  749.       (void) ioctl(unit, FIOCLEX, (char *)0);
  750.       xfree(ep);
  751.   #ifdef INGRES
  752.  
  753. --- 614,620 -----
  754.       register char *ep = strspl(cp, dp);
  755.       register int unit = dmove(open(ep, 0), -1);
  756.   
  757. + #ifdef BSD4_3
  758.       (void) ioctl(unit, FIOCLEX, (char *)0);
  759.   #endif
  760.       xfree(ep);
  761. ***************
  762. *** 422,427
  763.       register int unit = dmove(open(ep, 0), -1);
  764.   
  765.       (void) ioctl(unit, FIOCLEX, (char *)0);
  766.       xfree(ep);
  767.   #ifdef INGRES
  768.       srcunit(unit, 0, 0);
  769.  
  770. --- 616,622 -----
  771.   
  772.   #ifdef BSD4_3
  773.       (void) ioctl(unit, FIOCLEX, (char *)0);
  774. + #endif
  775.       xfree(ep);
  776.   #ifdef INGRES
  777.       srcunit(unit, 0, 0);
  778. ***************
  779. *** 464,471
  780.       if (onlyown) {
  781.           struct stat stb;
  782.   
  783. !         if (fstat(unit, &stb) < 0 ||
  784. !             (stb.st_uid != uid && stb.st_gid != getgid())) {
  785.               (void) close(unit);
  786.               return;
  787.           }
  788.  
  789. --- 659,667 -----
  790.       if (onlyown) {
  791.           struct stat stb;
  792.   
  793. !         if (fstat(unit, &stb) < 0
  794. !         /*    || (stb.st_uid != uid && stb.st_gid != getgid()) */
  795. !             ) {
  796.               (void) close(unit);
  797.               return;
  798.           }
  799. ***************
  800. *** 573,578
  801.   
  802.   goodbye()
  803.   {
  804.       if (loginsh) {
  805.           (void) signal(SIGQUIT, SIG_IGN);
  806.           (void) signal(SIGINT, SIG_IGN);
  807.  
  808. --- 769,775 -----
  809.   
  810.   goodbye()
  811.   {
  812. +     rechist();
  813.       if (loginsh) {
  814.           (void) signal(SIGQUIT, SIG_IGN);
  815.           (void) signal(SIGINT, SIG_IGN);
  816. ***************
  817. *** 578,583
  818.           (void) signal(SIGINT, SIG_IGN);
  819.           (void) signal(SIGTERM, SIG_IGN);
  820.           setintr = 0;        /* No interrupts after "logout" */
  821.           if (adrof("home"))
  822.               srccat(value("home"), "/.logout");
  823.       }
  824.  
  825. --- 775,782 -----
  826.           (void) signal(SIGINT, SIG_IGN);
  827.           (void) signal(SIGTERM, SIG_IGN);
  828.           setintr = 0;        /* No interrupts after "logout" */
  829. +         if (!(adrof("logout")))
  830. +             set ("logout", "normal");
  831.           if (adrof("home"))
  832.               srccat(value("home"), "/.logout");
  833.       }
  834. ***************
  835. *** 581,587
  836.           if (adrof("home"))
  837.               srccat(value("home"), "/.logout");
  838.       }
  839. -     rechist();
  840.       exitstat();
  841.   }
  842.   
  843.  
  844. --- 780,785 -----
  845.           if (adrof("home"))
  846.               srccat(value("home"), "/.logout");
  847.       }
  848.       exitstat();
  849.   }
  850.   
  851. ***************
  852. *** 654,661
  853.           if (v = gargv)
  854.               gargv = 0, blkfree(v);
  855.           reset();
  856. !     } else if (intty && wantnl)
  857. !         printf("\n");        /* Some like this, others don't */
  858.       error(NOSTR);
  859.   }
  860.   
  861.  
  862. --- 852,862 -----
  863.           if (v = gargv)
  864.               gargv = 0, blkfree(v);
  865.           reset();
  866. !     } else if (intty && wantnl) {
  867. !         /* printf("\n");    /* Some like this, others don't */
  868. !         putraw ('\r');
  869. !         putraw ('\n');
  870. !     }
  871.       error(NOSTR);
  872.   }
  873.   
  874. ***************
  875. *** 730,735
  876.           if (intty && prompt && evalvec == 0) {
  877.               mailchk();
  878.               /*
  879.                * If we are at the end of the input buffer
  880.                * then we are going to read fresh stuff.
  881.                * Otherwise, we are rereading input and don't
  882.  
  883. --- 931,946 -----
  884.           if (intty && prompt && evalvec == 0) {
  885.               mailchk();
  886.               /*
  887. +              * Watch for logins/logouts.
  888. +              * Next is scheduled commands stored previously using "sched."
  889. +              * Then execute periodic commands.
  890. +              * Following that, the prompt precmd is run.
  891. +              */
  892. +             watch_login();
  893. +             sched_run();
  894. +             period_cmd();
  895. +             precmd();
  896. +             /*
  897.                * If we are at the end of the input buffer
  898.                * then we are going to read fresh stuff.
  899.                * Otherwise, we are rereading input and don't
  900. ***************
  901. *** 737,742
  902.                */
  903.               if (fseekp == feobp)
  904.                   printprompt();
  905.           }
  906.           err = 0;
  907.   
  908.  
  909. --- 948,954 -----
  910.                */
  911.               if (fseekp == feobp)
  912.                   printprompt();
  913. +             setalarm();
  914.           }
  915.           err = 0;
  916.   
  917. ***************
  918. *** 744,750
  919.            * Echo not only on VERBOSE, but also with history expansion.
  920.            * If there is a lexical error then we forego history echo.
  921.            */
  922. !         if (lex(¶ml) && !err && intty ||
  923.               adrof("verbose")) {
  924.               haderr = 1;
  925.               prlex(¶ml);
  926.  
  927. --- 956,962 -----
  928.            * Echo not only on VERBOSE, but also with history expansion.
  929.            * If there is a lexical error then we forego history echo.
  930.            */
  931. !         if (lex(¶ml) && !err && intty && !tellwhat ||
  932.               adrof("verbose")) {
  933.               haderr = 1;
  934.               prlex(¶ml);
  935. ***************
  936. *** 750,755
  937.               prlex(¶ml);
  938.               haderr = 0;
  939.           }
  940.   
  941.           /*
  942.            * The parser may lose space if interrupted.
  943.  
  944. --- 962,968 -----
  945.               prlex(¶ml);
  946.               haderr = 0;
  947.           }
  948. +         alarm (0);                /* Autologout OFF */
  949.   
  950.           /*
  951.            * The parser may lose space if interrupted.
  952. ***************
  953. *** 763,769
  954.            * is from the terminal at the top level and not
  955.            * in a loop.
  956.            */
  957. !         if (enterhist || catch && intty && !whyles)
  958.               savehist(¶ml);
  959.   
  960.           /*
  961.  
  962. --- 976,982 -----
  963.            * is from the terminal at the top level and not
  964.            * in a loop.
  965.            */
  966. !         if (enterhist || catch && intty && !whyles && !tellwhat)
  967.               savehist(¶ml);
  968.   
  969.           /*
  970. ***************
  971. *** 783,788
  972.           alias(¶ml);
  973.   
  974.           /*
  975.            * Parse the words of the input into a parse tree.
  976.            */
  977.           t = syntax(paraml.next, ¶ml, 0);
  978.  
  979. --- 996,1009 -----
  980.           alias(¶ml);
  981.   
  982.           /*
  983. +          * If had a tell_what from twenex() then do
  984. +          */
  985. +         if (tellwhat) {
  986. +             tellmewhat(¶ml);
  987. +             reset();
  988. +         }
  989. + 
  990. +         /*
  991.            * Parse the words of the input into a parse tree.
  992.            */
  993.           t = syntax(paraml.next, ¶ml, 0);
  994. ***************
  995. *** 821,826
  996.       xfree(f);
  997.       if (u < 0 && !hflg)
  998.           Perror(f);
  999.       (void) ioctl(u, FIOCLEX, (char *)0);
  1000.       srcunit(u, 0, hflg);
  1001.   }
  1002.  
  1003. --- 1042,1048 -----
  1004.       xfree(f);
  1005.       if (u < 0 && !hflg)
  1006.           Perror(f);
  1007. + #ifdef BSD4_3
  1008.       (void) ioctl(u, FIOCLEX, (char *)0);
  1009.   #endif
  1010.       srcunit(u, 0, hflg);
  1011. ***************
  1012. *** 822,827
  1013.       if (u < 0 && !hflg)
  1014.           Perror(f);
  1015.       (void) ioctl(u, FIOCLEX, (char *)0);
  1016.       srcunit(u, 0, hflg);
  1017.   }
  1018.   
  1019.  
  1020. --- 1044,1050 -----
  1021.           Perror(f);
  1022.   #ifdef BSD4_3
  1023.       (void) ioctl(u, FIOCLEX, (char *)0);
  1024. + #endif
  1025.       srcunit(u, 0, hflg);
  1026.   }
  1027.   
  1028. ***************
  1029. *** 870,876
  1030.       chktim = t;
  1031.   }
  1032.   
  1033. ! #include <pwd.h>
  1034.   /*
  1035.    * Extract a home directory from the password file
  1036.    * The argument points to a buffer where the name of the
  1037.  
  1038. --- 1093,1099 -----
  1039.       chktim = t;
  1040.   }
  1041.   
  1042. ! /* #include <pwd.h> */
  1043.   /*
  1044.    * Extract a home directory from the password file
  1045.    * The argument points to a buffer where the name of the
  1046. ***************
  1047. *** 896,901
  1048.   {
  1049.   
  1050.       didfds = 0;            /* 0, 1, 2 aren't set up */
  1051.       (void) ioctl(SHIN = dcopy(0, FSHIN), FIOCLEX, (char *)0);
  1052.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1053.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1054.  
  1055. --- 1119,1125 -----
  1056.   {
  1057.   
  1058.       didfds = 0;            /* 0, 1, 2 aren't set up */
  1059. + #ifdef BSD4_3
  1060.       (void) ioctl(SHIN = dcopy(0, FSHIN), FIOCLEX, (char *)0);
  1061.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1062.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1063. ***************
  1064. *** 900,905
  1065.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1066.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1067.       (void) ioctl(OLDSTD = dcopy(SHIN, FOLDSTD), FIOCLEX, (char *)0);
  1068.       closem();
  1069.   }
  1070.   
  1071.  
  1072. --- 1124,1135 -----
  1073.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1074.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1075.       (void) ioctl(OLDSTD = dcopy(SHIN, FOLDSTD), FIOCLEX, (char *)0);
  1076. + #else
  1077. +     SHIN = dcopy(0, FSHIN);
  1078. +     SHOUT = dcopy(1, FSHOUT);
  1079. +     SHDIAG = dcopy(2, FSHDIAG);
  1080. +     OLDSTD = dcopy(SHIN, FOLDSTD);
  1081. + #endif
  1082.       closem();
  1083.   }
  1084.   
  1085. ***************
  1086. *** 903,908
  1087.       closem();
  1088.   }
  1089.   
  1090.   #ifdef PROF
  1091.   done(i)
  1092.   #else
  1093.  
  1094. --- 1133,1541 -----
  1095.       closem();
  1096.   }
  1097.   
  1098. +   
  1099. + /*
  1100. +  * Karl Kleinpaste, 21oct1983.
  1101. +  * Added precmd(), which checks for the alias
  1102. +  * precmd in aliases.  If it's there, the alias
  1103. +  * is executed as a command.  This is done
  1104. +  * after mailchk() and just before print-
  1105. +  * ing the prompt.  Useful for things like printing
  1106. +  * one's current directory just before each command.
  1107. +  */
  1108. + precmd()
  1109. + {
  1110. +     int    omask;
  1111. + 
  1112. +     omask = sighold (SIGINT);
  1113. +     if (precmd_active) {    /* an error must have been caught */
  1114. +         aliasrun (2, "unalias", "precmd");
  1115. +         printf ("Faulty alias 'precmd' removed.\n");
  1116. +         goto leave;
  1117. +     }
  1118. +     precmd_active++;
  1119. +     if (!whyles && adrof1 ("precmd", &aliases))
  1120. +         aliasrun (1, "precmd", (char *) 0);
  1121. + leave:
  1122. +     precmd_active = 0;
  1123. +     sigsetmask(omask);
  1124. + }
  1125. + 
  1126. + /*
  1127. +  * Karl Kleinpaste, 18 Jan 1984.
  1128. +  * Added period_cmd(), which executes the alias "periodic" every
  1129. +  * $tperiod minutes.  Useful for occasional checking of msgs and such.
  1130. +  */
  1131. + period_cmd()
  1132. + {
  1133. +     register char *vp;
  1134. +     time_t t, interval;
  1135. +     int    omask;
  1136. + 
  1137. +     omask = sighold (SIGINT);
  1138. +     if (periodic_active) {    /* an error must have been caught */
  1139. +         aliasrun (2, "unalias", "periodic");
  1140. +         printf ("Faulty alias 'periodic' removed.\n");
  1141. +         goto leave;
  1142. +     }
  1143. +     periodic_active++;
  1144. +     if (!whyles && adrof1 ("periodic", &aliases)) {
  1145. +         vp = value ("tperiod");
  1146. +         if (vp == (char *) 0)
  1147. +             return;
  1148. +         interval = getn (vp);
  1149. +         time (&t);
  1150. +         if (t - t_period >= interval * 60) {
  1151. +             t_period = t;
  1152. +             aliasrun (1, "periodic", (char *) 0);
  1153. +         }
  1154. +     }
  1155. + leave:
  1156. +     periodic_active = 0;
  1157. +     sigsetmask(omask);
  1158. + }
  1159. + 
  1160. + /*
  1161. +  * Karl Kleinpaste, 21oct1983.
  1162. +  * Set up a one-word alias command, for use for special things.
  1163. +  * This code is based on the mainline of process().
  1164. +  */
  1165. + aliasrun (cnt, s1, s2)
  1166. +     int cnt;
  1167. +     char *s1, *s2;
  1168. + {
  1169. +     struct    wordent    w, *new1, *new2;    /* for holding alias name */
  1170. +     struct    command    *t = (struct command *) 0;
  1171. + 
  1172. +     err = NOSTR;            /* don't repeatedly print err msg. */
  1173. +     w.word = "";
  1174. +     new1 = (struct wordent *) calloc (1, sizeof w);
  1175. +     new1->word = savestr (s1);
  1176. +     if (cnt == 1) {
  1177. +         /* build a lex list with one word. */
  1178. +         w.next = w.prev = new1;
  1179. +         new1->next = new1->prev = &w;
  1180. +     } else {
  1181. +         /* build a lex list with two words. */
  1182. +         new2 = (struct wordent *) calloc (1, sizeof w);
  1183. +         new2->word = savestr (s2);
  1184. +         w.next = new2->prev = new1;
  1185. +         new1->next = w.prev = new2;
  1186. +         new1->prev = new2->next = &w;
  1187. +     }
  1188. + 
  1189. +     /* expand aliases like process() does. */
  1190. +     alias (&w);
  1191. +     /* build a syntax tree for the command. */
  1192. +     t = syntax (w.next, &w, 0);
  1193. +     if (err)
  1194. +         error (err);
  1195. +     /* execute the parse tree. */
  1196. +     execute (t, -1);
  1197. +     /* done. free the lex list and parse tree. */
  1198. +     freelex (&w), freesyn (t);
  1199. + }
  1200. + 
  1201. + /*
  1202. +  * Karl Kleinpaste, 26 Jan 1984.
  1203. +  * Initialize the dummy tty list for login watch.
  1204. +  * This dummy list eliminates boundary conditions
  1205. +  * when doing pointer-chase searches.
  1206. +  */
  1207. + initwatch()
  1208. + {
  1209. +     wholist = (struct who *) calloc (1, sizeof *wholist);
  1210. +     wholist->w_next = (struct who *) calloc (1, sizeof *wholist);
  1211. +     wholist->w_next->w_prev = wholist;
  1212. +     strcpy (wholist->w_tty, "\01\01\01\01\01");
  1213. +     strcpy (wholist->w_next->w_tty, "~~~~~");
  1214. + #ifdef WHODEBUG
  1215. +     debugwholist ((struct who *) 0, (struct who *) 0);
  1216. + #endif WHODEBUG
  1217. + }
  1218. + 
  1219. + /*
  1220. +  * Karl Kleinpaste, 26 Jan 1984.
  1221. +  * Watch /etc/utmp for login/logout changes.
  1222. +  */
  1223. + watch_login()
  1224. + {
  1225. +     int utmpfd, comparison, alldone, cnt;
  1226. +     struct utmp utmp;
  1227. +     struct who *wp, *wpnew;
  1228. +     struct varent *v;
  1229. +     char **vp, *cp;
  1230. +     time_t t, interval;
  1231. +     int    omask;
  1232. + 
  1233. +     /* stop SIGINT, lest our login list get trashed. */
  1234. +     omask = sighold (SIGINT);
  1235. + 
  1236. +     v = adrof ("watch");
  1237. +     if (v == (struct varent *) 0) {
  1238. +         sigsetmask(omask);
  1239. +         return;            /* no names to watch */
  1240. +     }
  1241. +     vp = v->vec;
  1242. +     cnt = blklen (vp);
  1243. +     if (cnt % 2) {            /* odd # args: 1st == # minutes. */
  1244. +         interval = (number (*vp)) ? getn (*vp++) : MAILINTVL;
  1245. +         cnt--;
  1246. +     }
  1247. +     time (&t);
  1248. +     if (t - watch_period < interval * 60) {
  1249. +         sigsetmask(omask);
  1250. +         return;            /* not long enough yet... */
  1251. +     }
  1252. +     watch_period = t;
  1253. + 
  1254. +     if ((utmpfd = open ("/etc/utmp", 0)) < 0) {
  1255. +         printf ("/etc/utmp cannot be opened.  Please \"unset watch\".\n");
  1256. +         sigsetmask(omask);
  1257. +         return;
  1258. +     }
  1259. + 
  1260. +     /*
  1261. +      * Read in the utmp file, sort the entries, and update existing
  1262. +      * entries or add new entries to the status list.
  1263. +      */
  1264. +     while (read (utmpfd, &utmp, sizeof utmp) == sizeof utmp) {
  1265. +         if (utmp.ut_name[0] == '\0' && utmp.ut_line[0] == '\0')
  1266. +             continue;    /* completely void entry */
  1267. +         wp = wholist;
  1268. +         while ((comparison = strncmp (wp->w_tty, utmp.ut_line, 8)) < 0)
  1269. +             wp = wp->w_next;    /* find that tty! */
  1270. + 
  1271. +         if (comparison == 0) {        /* found the tty... */
  1272. +             if (utmp.ut_name[0] == '\0')
  1273. +                 wp->w_status = OFFLINE;
  1274. +             else            /* someone is logged in */
  1275. +                 if (strncmp (utmp.ut_name, wp->w_name, 8) == 0)
  1276. +                     wp->w_status = 0;    /* same guy */
  1277. +                 else {
  1278. +                     strncpy (wp->w_new, utmp.ut_name, 8);
  1279. +                     if (wp->w_name[0] == '\0')
  1280. +                         wp->w_status = ONLINE;
  1281. +                     else
  1282. +                         wp->w_status = CHANGED;
  1283. +                 }
  1284. +         } else {            /* new tty in utmp */
  1285. +             wpnew = (struct who *) calloc (1, sizeof *wpnew);
  1286. +             strncpy (wpnew->w_tty, utmp.ut_line, 8);
  1287. +             if (utmp.ut_name[0] == '\0')
  1288. +                 wpnew->w_status = OFFLINE;
  1289. +             else {
  1290. +                 strncpy (wpnew->w_new, utmp.ut_name, 8);
  1291. +                 wpnew->w_status = ONLINE;
  1292. +             }
  1293. + #ifdef WHODEBUG
  1294. +             debugwholist(wpnew, wp);
  1295. + #endif WHODEBUG
  1296. + 
  1297. +             wpnew->w_next = wp;    /* link in a new 'who' */
  1298. +             wpnew->w_prev = wp->w_prev;
  1299. +             wpnew->w_prev->w_next = wpnew;
  1300. +             wp->w_prev = wpnew;    /* linked in now */
  1301. +         }
  1302. +     }
  1303. +     close (utmpfd);
  1304. + 
  1305. +     /*
  1306. +      * The state of all logins is now known, so we can search
  1307. +      * the user's list of watchables to print the interesting ones.
  1308. +      */
  1309. +     for (alldone = 0; !alldone && *vp != (char *) 0 && **vp != '\0' &&
  1310. +             *(vp+1) != (char *) 0 && **(vp+1) != '\0';
  1311. +             vp += 2) {        /* args used in pairs... */
  1312. + 
  1313. +         if (eq (*vp, "any") && eq (*(vp+1), "any"))
  1314. +             alldone++;
  1315. + 
  1316. +         for (wp = wholist; wp != (struct who *) 0; wp = wp->w_next) {
  1317. +             if (wp->w_status & ANNOUNCE        ||
  1318. +                 (!eq (*vp, "any") && !eq (*vp, wp->w_name) &&
  1319. +                 !eq (*vp, wp->w_new))        ||
  1320. +                 (!eq (*(vp+1), wp->w_tty) && !eq (*(vp+1), "any")))
  1321. +                 continue;    /* entry doesn't qualify */
  1322. +                 /* already printed or not right one to print */
  1323. + 
  1324. +             if ((wp->w_status & OFFLINE) &&
  1325. +                 (wp->w_name[0] != '\0')) {
  1326. +                 printf ("%s has logged off %s.\n",
  1327. +                     wp->w_name, wp->w_tty);
  1328. +                 wp->w_name[0] = '\0';
  1329. +                 wp->w_status |= ANNOUNCE;
  1330. +                 continue;
  1331. +             }
  1332. +             if (wp->w_status & ONLINE) {
  1333. +                 printf ("%s has logged on %s.\n",
  1334. +                     wp->w_new, wp->w_tty);
  1335. +                 strcpy (wp->w_name, wp->w_new);
  1336. +                 wp->w_status |= ANNOUNCE;
  1337. +                 continue;
  1338. +             }
  1339. +             if (wp->w_status & CHANGED) {
  1340. +                 printf ("%s has replaced %s on %s.\n",
  1341. +                     wp->w_new, wp->w_name, wp->w_tty);
  1342. +                 strcpy (wp->w_name, wp->w_new);
  1343. +                 wp->w_status |= ANNOUNCE;
  1344. +                 continue;
  1345. +             }
  1346. +         }
  1347. +     }
  1348. +     sigsetmask(omask);
  1349. + }
  1350. + 
  1351. + #ifdef WHODEBUG
  1352. + debugwholist (new, wp)
  1353. + register struct who *new, *wp;
  1354. + {
  1355. +     register struct who *a;
  1356. + 
  1357. +     a = wholist;
  1358. +     while (a != (struct who *) 0) {
  1359. +         printf ("%s/%s -> ", a->w_name, a->w_tty);
  1360. +         a = a->w_next;
  1361. +     }
  1362. +     printf ("NULL\n");
  1363. +     a = wholist;
  1364. +     printf ("backward: ");
  1365. +     while (a->w_next != (struct who *) 0)
  1366. +         a = a->w_next;
  1367. +     while (a != (struct who *) 0) {
  1368. +         printf ("%s/%s -> ", a->w_name, a->w_tty);
  1369. +         a = a->w_prev;
  1370. +     }
  1371. +     printf ("NULL\n");
  1372. +     if (new)
  1373. +         printf ("new: %s/%s\n", new->w_name, new->w_tty);
  1374. +     if (wp)
  1375. +         printf ("wp: %s/%s\n", wp->w_name, wp->w_tty);
  1376. + }
  1377. + #endif WHODEBUG
  1378. + 
  1379. + /*
  1380. +  * kfk 21oct1983 -- add @ (time) and / ($cwd) in prompt.
  1381. +  * PWP 4/27/87 -- rearange for tcsh.
  1382. +  */
  1383. + 
  1384. + printprompt ()
  1385. + {
  1386. +     register char *cp, *p, *z;
  1387. +     register char underlining = 0;
  1388. + 
  1389. +     PromptBuf[0] = '\0';
  1390. +     p = PromptBuf;
  1391. +     if (whyles)
  1392. +     cp = value("prompt2");
  1393. +     else
  1394. +     cp = value("prompt");
  1395. + 
  1396. +     for (; *cp; cp++) {
  1397. +     if (*cp == '%') {
  1398. +         cp++;
  1399. +         if (*cp == HIST || *cp == 'h') {
  1400. +         itoa(eventno + 1, buff);
  1401. +         for (z = buff; *z; z++)
  1402. +             *p++ = underlining | *z;
  1403. +         } else if (*cp == '@' || *cp == 't') {
  1404. +         struct tm *t;
  1405. +         long clock;
  1406. +         char ampm = 'a';
  1407. + 
  1408. +         time (&clock);
  1409. +         t = localtime(&clock);
  1410. +         if (t->tm_hour >= 12) {
  1411. +             if (t->tm_hour > 12)
  1412. +             t->tm_hour -= 12;
  1413. +             ampm = 'p';
  1414. +         } else if (t->tm_hour == 0)
  1415. +             t->tm_hour = 12;
  1416. +         
  1417. +         itoa(t->tm_hour, buff);
  1418. +         *p++ = underlining | buff[0];
  1419. +         if (buff[1]) *p++ = underlining | buff[1];
  1420. +         *p++ = underlining | ':';
  1421. +         itoa(t->tm_min, buff);
  1422. +         if (buff[1]) {
  1423. +             *p++ = underlining | buff[0];
  1424. +             *p++ = underlining | buff[1];
  1425. +         } else {
  1426. +             *p++ = underlining | '0';
  1427. +             *p++ = underlining | buff[0];
  1428. +         }
  1429. +         *p++ = underlining | ampm;
  1430. +         *p++ = underlining | 'm';
  1431. +         } else if (*cp == 'M') {
  1432. +         for (z = getenv("HOST"); *z; z++)
  1433. +             *p++ = underlining | *z;
  1434. +         } else if (*cp == 'm') {
  1435. +         for (z = getenv("HOST"); *z && *z != '.'; z++)
  1436. +             *p++ = underlining | *z;
  1437. +         } else if (*cp == '/' || *cp == 'd') {
  1438. +         for (z = value("cwd"); *z; z++)
  1439. +             *p++ = underlining | *z;
  1440. +         } else if (*cp == '.' || *cp == 'c') {
  1441. +         strcpy (buff, value("cwd"));
  1442. +         if (!buff[1]) {    /* if CWD == / */
  1443. +             *p++ = underlining | buff[0];
  1444. +         } else {
  1445. +             if (strcmp(buff, value("home")) == 0) {
  1446. +             *p++ = underlining | '~';
  1447. +             } else {
  1448. +             for (z = buff; *z; z++) ; /* find the end */
  1449. +             while ((z > buff) && (*z != '/')) z--; /* back up */
  1450. +             if (*z == '/') z++;
  1451. +             while (*z)
  1452. +                 *p++ = underlining | *z++;
  1453. +             }
  1454. +         }
  1455. + 
  1456. +         } else if (*cp == 'S' || *cp == 'U') { /* start standout */
  1457. +         underlining = 0200;
  1458. +         } else if (*cp == 's' || *cp == 'u') { /* end standout */
  1459. +         underlining = 0;
  1460. +         } else if (*cp == '%') {
  1461. +         *p++ = underlining | '%';
  1462. +         } else {
  1463. +         *p++ = underlining | '%';
  1464. +         *p++ = underlining | *cp;
  1465. +         }
  1466. +     } else {
  1467. +         *p++ = underlining | *cp;        /* normal character */
  1468. +     }
  1469. +     }
  1470. +     *p = '\0';
  1471. +     /*
  1472. +     cp = PromptBuf;
  1473. +     while (*cp)
  1474. +         putchar(*cp++ | QUOTE);
  1475. +     */
  1476. +     flush();
  1477. + }
  1478. + 
  1479. + setalarm()
  1480. + {
  1481. +     struct varent *vp;
  1482. +     char *cp;
  1483. +     int alrm_time = 0;
  1484. +     long cl, sched_dif;
  1485. +     extern    struct    sched_event *sched_ptr;
  1486. + 
  1487. +     if (vp = adrof("autologout"))
  1488. +     {
  1489. +         if (cp = vp->vec[0])
  1490. +             alrm_time = (atoi (cp) * 60);
  1491. +     }
  1492. +     if (sched_ptr) {
  1493. +         time(&cl);
  1494. +         sched_dif = sched_ptr->t_when - cl;
  1495. +         if ((alrm_time == 0) || (sched_dif < alrm_time))
  1496. +             alrm_time = ((int) sched_dif) + 1;
  1497. +     }
  1498. +     alarm (alrm_time);    /* Autologout ON */
  1499. + }
  1500. + 
  1501.   #ifdef PROF
  1502.   done(i)
  1503.   #else
  1504. ***************
  1505. *** 915,938
  1506.       _exit(i);
  1507.   }
  1508.   
  1509. - printprompt()
  1510. - {
  1511. -     register char *cp;
  1512. - 
  1513. -     if (!whyles) {
  1514. -         for (cp = value("prompt"); *cp; cp++)
  1515. -             if (*cp == HIST)
  1516. -                 printf("%d", eventno + 1);
  1517. -             else {
  1518. -                 if (*cp == '\\' && cp[1] == HIST)
  1519. -                     cp++;
  1520. -                 putchar(*cp | QUOTE);
  1521. -             }
  1522. -     } else
  1523. -         /* 
  1524. -          * Prompt for forward reading loop
  1525. -          * body content.
  1526. -          */
  1527. -         printf("? ");
  1528. -     flush();
  1529. - }
  1530.  
  1531. --- 1548,1550 -----
  1532.       _exit(i);
  1533.   }
  1534.   
  1535. *** sh.char.c    Sat Mar 29 07:37:20 1986
  1536. --- /usr/src/local/tcsh/sh.char.c    Mon Aug 17 23:30:38 1987
  1537. ***************
  1538. *** 60,66
  1539.       _META,        0,        _META,        _GLOB,
  1540.   
  1541.   /*    @        A        B        C    */
  1542. !     0,        _LET,        _LET,        _LET,
  1543.   
  1544.   /*    D        E        F        G    */
  1545.       _LET,        _LET,        _LET,        _LET,
  1546.  
  1547. --- 60,66 -----
  1548.       _META,        0,        _META,        _GLOB,
  1549.   
  1550.   /*    @        A        B        C    */
  1551. !     0,        _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,
  1552.   
  1553.   /*    D        E        F        G    */
  1554.       _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_UP,
  1555. ***************
  1556. *** 63,69
  1557.       0,        _LET,        _LET,        _LET,
  1558.   
  1559.   /*    D        E        F        G    */
  1560. !     _LET,        _LET,        _LET,        _LET,
  1561.   
  1562.   /*    H        I        J        K    */
  1563.       _LET,        _LET,        _LET,        _LET,
  1564.  
  1565. --- 63,69 -----
  1566.       0,        _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,
  1567.   
  1568.   /*    D        E        F        G    */
  1569. !     _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_UP,
  1570.   
  1571.   /*    H        I        J        K    */
  1572.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1573. ***************
  1574. *** 66,72
  1575.       _LET,        _LET,        _LET,        _LET,
  1576.   
  1577.   /*    H        I        J        K    */
  1578. !     _LET,        _LET,        _LET,        _LET,
  1579.   
  1580.   /*    L        M        N        O    */
  1581.       _LET,        _LET,        _LET,        _LET,
  1582.  
  1583. --- 66,72 -----
  1584.       _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_UP,
  1585.   
  1586.   /*    H        I        J        K    */
  1587. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1588.   
  1589.   /*    L        M        N        O    */
  1590.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1591. ***************
  1592. *** 69,75
  1593.       _LET,        _LET,        _LET,        _LET,
  1594.   
  1595.   /*    L        M        N        O    */
  1596. !     _LET,        _LET,        _LET,        _LET,
  1597.   
  1598.   /*    P        Q        R        S    */
  1599.       _LET,        _LET,        _LET,        _LET,
  1600.  
  1601. --- 69,75 -----
  1602.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1603.   
  1604.   /*    L        M        N        O    */
  1605. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1606.   
  1607.   /*    P        Q        R        S    */
  1608.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1609. ***************
  1610. *** 72,78
  1611.       _LET,        _LET,        _LET,        _LET,
  1612.   
  1613.   /*    P        Q        R        S    */
  1614. !     _LET,        _LET,        _LET,        _LET,
  1615.   
  1616.   /*    T        U        V        W    */
  1617.       _LET,        _LET,        _LET,        _LET,
  1618.  
  1619. --- 72,78 -----
  1620.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1621.   
  1622.   /*    P        Q        R        S    */
  1623. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1624.   
  1625.   /*    T        U        V        W    */
  1626.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1627. ***************
  1628. *** 75,81
  1629.       _LET,        _LET,        _LET,        _LET,
  1630.   
  1631.   /*    T        U        V        W    */
  1632. !     _LET,        _LET,        _LET,        _LET,
  1633.   
  1634.   /*    X        Y        Z        [    */
  1635.       _LET,        _LET,        _LET,        _GLOB,
  1636.  
  1637. --- 75,81 -----
  1638.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1639.   
  1640.   /*    T        U        V        W    */
  1641. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1642.   
  1643.   /*    X        Y        Z        [    */
  1644.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _GLOB,
  1645. ***************
  1646. *** 78,84
  1647.       _LET,        _LET,        _LET,        _LET,
  1648.   
  1649.   /*    X        Y        Z        [    */
  1650. !     _LET,        _LET,        _LET,        _GLOB,
  1651.   
  1652.   /*    \        ]        ^        _    */
  1653.       _ESC,        0,        0,        _LET,
  1654.  
  1655. --- 78,84 -----
  1656.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1657.   
  1658.   /*    X        Y        Z        [    */
  1659. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _GLOB,
  1660.   
  1661.   /*    \        ]        ^        _    */
  1662.       _ESC,        0,        0,        _LET,
  1663. ***************
  1664. *** 84,90
  1665.       _ESC,        0,        0,        _LET,
  1666.   
  1667.   /*    `        a        b        c    */
  1668. !     _Q1|_GLOB,    _LET,        _LET,        _LET,
  1669.   
  1670.   /*    d        e        f        g    */
  1671.       _LET,        _LET,        _LET,        _LET,
  1672.  
  1673. --- 84,90 -----
  1674.       _ESC,        0,        0,        _LET,
  1675.   
  1676.   /*    `        a        b        c    */
  1677. !     _Q1|_GLOB,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,
  1678.   
  1679.   /*    d        e        f        g    */
  1680.       _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_LOW,
  1681. ***************
  1682. *** 87,93
  1683.       _Q1|_GLOB,    _LET,        _LET,        _LET,
  1684.   
  1685.   /*    d        e        f        g    */
  1686. !     _LET,        _LET,        _LET,        _LET,
  1687.   
  1688.   /*    h        i        j        k    */
  1689.       _LET,        _LET,        _LET,        _LET,
  1690.  
  1691. --- 87,93 -----
  1692.       _Q1|_GLOB,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,
  1693.   
  1694.   /*    d        e        f        g    */
  1695. !     _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_LOW,
  1696.   
  1697.   /*    h        i        j        k    */
  1698.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1699. ***************
  1700. *** 90,96
  1701.       _LET,        _LET,        _LET,        _LET,
  1702.   
  1703.   /*    h        i        j        k    */
  1704. !     _LET,        _LET,        _LET,        _LET,
  1705.   
  1706.   /*    l        m        n        o    */
  1707.       _LET,        _LET,        _LET,        _LET,
  1708.  
  1709. --- 90,96 -----
  1710.       _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_LOW,
  1711.   
  1712.   /*    h        i        j        k    */
  1713. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1714.   
  1715.   /*    l        m        n        o    */
  1716.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1717. ***************
  1718. *** 93,99
  1719.       _LET,        _LET,        _LET,        _LET,
  1720.   
  1721.   /*    l        m        n        o    */
  1722. !     _LET,        _LET,        _LET,        _LET,
  1723.   
  1724.   /*    p        q        r        s    */
  1725.       _LET,        _LET,        _LET,        _LET,
  1726.  
  1727. --- 93,99 -----
  1728.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1729.   
  1730.   /*    l        m        n        o    */
  1731. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1732.   
  1733.   /*    p        q        r        s    */
  1734.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1735. ***************
  1736. *** 96,102
  1737.       _LET,        _LET,        _LET,        _LET,
  1738.   
  1739.   /*    p        q        r        s    */
  1740. !     _LET,        _LET,        _LET,        _LET,
  1741.   
  1742.   /*    t        u        v        w    */
  1743.       _LET,        _LET,        _LET,        _LET,
  1744.  
  1745. --- 96,102 -----
  1746.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1747.   
  1748.   /*    p        q        r        s    */
  1749. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1750.   
  1751.   /*    t        u        v        w    */
  1752.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1753. ***************
  1754. *** 99,105
  1755.       _LET,        _LET,        _LET,        _LET,
  1756.   
  1757.   /*    t        u        v        w    */
  1758. !     _LET,        _LET,        _LET,        _LET,
  1759.   
  1760.   /*    x        y        z        {    */
  1761.       _LET,        _LET,        _LET,        _GLOB,
  1762.  
  1763. --- 99,105 -----
  1764.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1765.   
  1766.   /*    t        u        v        w    */
  1767. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1768.   
  1769.   /*    x        y        z        {    */
  1770.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _GLOB,
  1771. ***************
  1772. *** 102,108
  1773.       _LET,        _LET,        _LET,        _LET,
  1774.   
  1775.   /*    x        y        z        {    */
  1776. !     _LET,        _LET,        _LET,        _GLOB,
  1777.   
  1778.   /*    |        }        ~        del    */
  1779.       _META,        0,        0,        0,
  1780.  
  1781. --- 102,108 -----
  1782.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1783.   
  1784.   /*    x        y        z        {    */
  1785. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _GLOB,
  1786.   
  1787.   /*    |        }        ~        del    */
  1788.       _META,        0,        0,        0,
  1789. *** sh.char.h    Sat Mar 29 07:37:14 1986
  1790. --- /usr/src/local/tcsh/sh.char.h    Mon Aug 17 23:28:06 1987
  1791. ***************
  1792. *** 24,29
  1793.   #define _DOL    0x80        /* $ */
  1794.   #define _DIG   0x100        /* 0-9 */
  1795.   #define _LET   0x200        /* a-z, A-Z, _ */
  1796.   
  1797.   #define cmap(c, bits)    (_cmap[(unsigned char)(c)] & (bits))
  1798.   
  1799.  
  1800. --- 24,32 -----
  1801.   #define _DOL    0x80        /* $ */
  1802.   #define _DIG   0x100        /* 0-9 */
  1803.   #define _LET   0x200        /* a-z, A-Z, _ */
  1804. + #define    _HEX   0x400        /* Hex digits */
  1805. + #define    _LOW   0x800        /* Lower case */
  1806. + #define    _UP   0x1000        /* Upper case */
  1807.   
  1808.   #define cmap(c, bits)    (_cmap[(unsigned char)(c)] & (bits))
  1809.   
  1810. ***************
  1811. *** 32,36
  1812.   #define isspnl(c)    cmap(c, _SP|_NL)
  1813.   #define ismeta(c)    cmap(c, _META)
  1814.   #define digit(c)    cmap(c, _DIG)
  1815.   #define letter(c)    cmap(c, _LET)
  1816.   #define alnum(c)    (digit(c) || letter(c))
  1817.  
  1818. --- 35,41 -----
  1819.   #define isspnl(c)    cmap(c, _SP|_NL)
  1820.   #define ismeta(c)    cmap(c, _META)
  1821.   #define digit(c)    cmap(c, _DIG)
  1822. + #define isdigit(c)    cmap(c, _DIG)
  1823.   #define letter(c)    cmap(c, _LET)
  1824.   #define isalpha(c)    cmap(c, _LET)
  1825.   #define islower(c)    cmap(c, _LOW)
  1826. ***************
  1827. *** 33,36
  1828.   #define ismeta(c)    cmap(c, _META)
  1829.   #define digit(c)    cmap(c, _DIG)
  1830.   #define letter(c)    cmap(c, _LET)
  1831.   #define alnum(c)    (digit(c) || letter(c))
  1832.  
  1833. --- 37,46 -----
  1834.   #define digit(c)    cmap(c, _DIG)
  1835.   #define isdigit(c)    cmap(c, _DIG)
  1836.   #define letter(c)    cmap(c, _LET)
  1837. + #define isalpha(c)    cmap(c, _LET)
  1838. + #define islower(c)    cmap(c, _LOW)
  1839. + #define isupper(c)    cmap(c, _UP)
  1840. + #define isxdigit(c)    cmap(c, _HEX)
  1841.   #define alnum(c)    (digit(c) || letter(c))
  1842.   #define toupper(c)    ((c)-'a'+'A')
  1843.   #define tolower(c)    ((c)-'A'+'a')
  1844. ***************
  1845. *** 34,36
  1846.   #define digit(c)    cmap(c, _DIG)
  1847.   #define letter(c)    cmap(c, _LET)
  1848.   #define alnum(c)    (digit(c) || letter(c))
  1849.  
  1850. --- 42,46 -----
  1851.   #define isupper(c)    cmap(c, _UP)
  1852.   #define isxdigit(c)    cmap(c, _HEX)
  1853.   #define alnum(c)    (digit(c) || letter(c))
  1854. + #define toupper(c)    ((c)-'a'+'A')
  1855. + #define tolower(c)    ((c)-'A'+'a')
  1856. *** sh.dir.c    Tue Jun 11 18:59:53 1985
  1857. --- /usr/src/local/tcsh/sh.dir.c    Mon Aug 17 19:58:48 1987
  1858. ***************
  1859. *** 230,235
  1860.       } else if (dp = dfind(*v)) {
  1861.           if (chdir(dp->di_name) < 0)
  1862.               Perror(dp->di_name);
  1863.       } else {
  1864.           register char *cp;
  1865.   
  1866.  
  1867. --- 230,240 -----
  1868.       } else if (dp = dfind(*v)) {
  1869.           if (chdir(dp->di_name) < 0)
  1870.               Perror(dp->di_name);
  1871. +         /*
  1872. +          * kfk - 10 Feb 1984 - added new "extraction style" pushd +n
  1873. +          */
  1874. +         if (adrof ("dextract"))
  1875. +             dextract (dp);
  1876.       } else {
  1877.           register char *cp;
  1878.   
  1879. ***************
  1880. *** 471,473
  1881.       if (printd)
  1882.           dodirs(fakev);
  1883.   }
  1884.  
  1885. --- 476,530 -----
  1886.       if (printd)
  1887.           dodirs(fakev);
  1888.   }
  1889. + 
  1890. + /*
  1891. +  * getstakd - added by kfk 17 Jan 1984
  1892. +  * Support routine for the stack hack.  Finds nth directory in
  1893. +  * the directory stack, or finds last directory in stack.
  1894. +  */
  1895. + getstakd (s, cnt, callerr)
  1896. +     char *s;
  1897. +     int cnt, callerr;
  1898. + {
  1899. +     struct directory *dp;
  1900. + 
  1901. +     dp = dcwd;
  1902. +     if (cnt < 0) {        /* < 0 ==> last dir requested. */
  1903. +         dp = dp->di_next;
  1904. +         if (dp == &dhead)
  1905. +             dp = dp->di_next;
  1906. +     } else {
  1907. +         while (cnt-- > 0) {
  1908. +             dp = dp->di_prev;
  1909. +             if (dp == &dhead)
  1910. +                 dp = dp->di_prev;
  1911. +             if (dp == dcwd) {
  1912. +                 if (callerr)
  1913. +                     error ("Not that many dir stack entries");
  1914. +                 else
  1915. +                     return;
  1916. +             }
  1917. +         }
  1918. +     }
  1919. +     strcpy (s, dp->di_name);
  1920. + }
  1921. + 
  1922. + /*
  1923. +  * Karl Kleinpaste - 10 Feb 1984
  1924. +  * Added dextract(), which is used in pushd +n.
  1925. +  * Instead of just rotating the entire stack around, dextract()
  1926. +  * lets the user have the nth dir extracted from its current
  1927. +  * position, and pushes it onto the top.
  1928. +  */
  1929. + dextract(dp)
  1930. + struct directory *dp;
  1931. + {
  1932. +     if (dp == dcwd)
  1933. +         return;
  1934. +     dp->di_next->di_prev = dp->di_prev;
  1935. +     dp->di_prev->di_next = dp->di_next;
  1936. +     dp->di_next = dcwd->di_next;
  1937. +     dp->di_prev = dcwd;
  1938. +     dp->di_next->di_prev = dp;
  1939. +     dcwd->di_next = dp;
  1940. +  }
  1941. *** sh.err.c    Tue May 13 01:03:05 1986
  1942. --- /usr/src/local/tcsh/sh.err.c    Mon Aug 17 19:58:49 1987
  1943. ***************
  1944. *** 9,15
  1945.   #endif
  1946.   
  1947.   #include "sh.h"
  1948. ! #include <sys/ioctl.h>
  1949.   
  1950.   /*
  1951.    * C Shell
  1952.  
  1953. --- 9,15 -----
  1954.   #endif
  1955.   
  1956.   #include "sh.h"
  1957. ! /* #include <sys/ioctl.h> */
  1958.   
  1959.   /*
  1960.    * C Shell
  1961. ***************
  1962. *** 78,83
  1963.       btoeof();
  1964.   
  1965.       setq("status", onev, &shvhed);
  1966.       if (tpgrp > 0)
  1967.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1968.       reset();        /* Unwind */
  1969.  
  1970. --- 78,84 -----
  1971.       btoeof();
  1972.   
  1973.       setq("status", onev, &shvhed);
  1974. + #ifdef BSDJOBS
  1975.       if (tpgrp > 0)
  1976.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1977.   #endif
  1978. ***************
  1979. *** 80,85
  1980.       setq("status", onev, &shvhed);
  1981.       if (tpgrp > 0)
  1982.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1983.       reset();        /* Unwind */
  1984.   }
  1985.   
  1986.  
  1987. --- 81,87 -----
  1988.   #ifdef BSDJOBS
  1989.       if (tpgrp > 0)
  1990.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1991. + #endif
  1992.       reset();        /* Unwind */
  1993.   }
  1994.   
  1995. *** sh.exec.c    Thu Jun  6 13:15:32 1985
  1996. --- /usr/src/local/tcsh/sh.exec.c    Thu Sep 24 15:06:55 1987
  1997. ***************
  1998. *** 9,15
  1999.   #endif
  2000.   
  2001.   #include "sh.h"
  2002. ! #include <sys/dir.h>
  2003.   
  2004.   /*
  2005.    * C shell
  2006.  
  2007. --- 9,15 -----
  2008.   #endif
  2009.   
  2010.   #include "sh.h"
  2011. ! /* #include <sys/dir.h> */
  2012.   
  2013.   /*
  2014.    * C shell
  2015. ***************
  2016. *** 287,292
  2017.       char **pv;
  2018.       int hashval;
  2019.   
  2020.       havhash = 1;
  2021.       for (cnt = 0; cnt < sizeof xhash; cnt++)
  2022.           xhash[cnt] = 0;
  2023.  
  2024. --- 287,293 -----
  2025.       char **pv;
  2026.       int hashval;
  2027.   
  2028. +     tw_clear_comm_list();
  2029.       havhash = 1;
  2030.       for (cnt = 0; cnt < sizeof xhash; cnt++)
  2031.           xhash[cnt] = 0;
  2032. ***************
  2033. *** 298,303
  2034.           dirp = opendir(*pv);
  2035.           if (dirp == NULL)
  2036.               continue;
  2037.           if (fstat(dirp->dd_fd, &stb) < 0 || !isdir(stb)) {
  2038.               closedir(dirp);
  2039.               continue;
  2040.  
  2041. --- 299,305 -----
  2042.           dirp = opendir(*pv);
  2043.           if (dirp == NULL)
  2044.               continue;
  2045. + #ifdef COMMENT    /* this isn't needed.  opendir won't open non-dirs */
  2046.           if (fstat(dirp->dd_fd, &stb) < 0 || !isdir(stb)) {
  2047.               closedir(dirp);
  2048.               continue;
  2049. ***************
  2050. *** 302,307
  2051.               closedir(dirp);
  2052.               continue;
  2053.           }
  2054.           while ((dp = readdir(dirp)) != NULL) {
  2055.               if (dp->d_ino == 0)
  2056.                   continue;
  2057.  
  2058. --- 304,310 -----
  2059.               closedir(dirp);
  2060.               continue;
  2061.           }
  2062. + #endif
  2063.           while ((dp = readdir(dirp)) != NULL) {
  2064.               if (dp->d_ino == 0)
  2065.                   continue;
  2066. ***************
  2067. *** 331,336
  2068.               hits, misses, 100 * hits / (hits + misses));
  2069.   }
  2070.   #endif
  2071.   
  2072.   /*
  2073.    * Hash a command name.
  2074.  
  2075. --- 334,435 -----
  2076.               hits, misses, 100 * hits / (hits + misses));
  2077.   }
  2078.   #endif
  2079. + 
  2080. + int
  2081. + iscommand(name)
  2082. +     char *name;
  2083. + {
  2084. +     char *sav;
  2085. +     register char *dp, **pv;
  2086. +     register struct varent *v;
  2087. +     bool slash = any('/', name);
  2088. +     int hashval, i;
  2089. + 
  2090. +     v = adrof("path");
  2091. +     if (v == 0 || v->vec[0] == 0 || slash)
  2092. +         pv = justabs;
  2093. +     else
  2094. +         pv = v->vec;
  2095. +     sav = strspl("/", name);        /* / command name for postpending */
  2096. +     if (havhash)
  2097. +         hashval = hashname(name);
  2098. +     i = 0;
  2099. +     do {
  2100. +         if (!slash && pv[0][0] == '/' && havhash && (hashval & (1 << (i % 8))) == 0)
  2101. +             goto cont;
  2102. +         if (pv[0][0] == 0 || eq(pv[0], ".")) {    /* don't make ./xxx */
  2103. +             if (access(name, 1) == 0) {
  2104. +                 xfree(sav);
  2105. +                 return i+1;
  2106. +             }
  2107. +         } else {
  2108. +             dp = strspl(*pv, sav);
  2109. +             if (access(dp, 1) == 0) {
  2110. +                 xfree(sav);
  2111. +                 xfree(dp);
  2112. +                 return i+1;
  2113. +             }
  2114. +             xfree(dp);
  2115. +         }
  2116. + cont:
  2117. +         pv++;
  2118. +         i++;
  2119. +     } while (*pv);
  2120. +     xfree(sav);
  2121. +     return 0;
  2122. + }
  2123. + 
  2124. + tellmewhat(lex)
  2125. +     struct wordent *lex;
  2126. + {
  2127. +     register char *cp;
  2128. +     register int i;
  2129. +     register struct biltins *bptr;
  2130. +     register struct wordent *sp = lex->next;
  2131. + 
  2132. + 
  2133. +     for (bptr = bfunc; bptr < &bfunc[nbfunc]; bptr++) {
  2134. + #ifdef    OUTDEF
  2135. +     for (bptr = bfunc; cp = bptr->bname; bptr++) {
  2136. + #endif
  2137. +     if (strcmp(sp->word, bptr->bname) == 0) {
  2138. +         prlex(lex);
  2139. +         printf("%s: is built in.\n", sp->word);
  2140. +         flush();
  2141. +         return;
  2142. +     }
  2143. +     }
  2144. + 
  2145. +     while (*(sp->word) & 0200) (sp->word)++;
  2146. +     if (i = iscommand(strip(sp->word))) {
  2147. +     char *s1;
  2148. +     register char **pv;
  2149. +     register struct varent *v;
  2150. +     bool slash = any('/', sp->word);
  2151. + 
  2152. +     v = adrof("path");
  2153. +     if (v == 0 || v->vec[0] == 0 || slash)
  2154. +         pv = justabs;
  2155. +     else
  2156. +         pv = v->vec;
  2157. + 
  2158. +     while (--i) pv++;
  2159. +     if (pv[0][0] == 0 || eq(pv[0], ".")) {
  2160. +         prlex(lex);
  2161. +         return;
  2162. +     }
  2163. +     s1 = strspl(*pv, "/");
  2164. +     sp->word = strspl(s1, sp->word);
  2165. +     xfree(s1);
  2166. +     prlex(lex);
  2167. +     xfree(sp->word);
  2168. +     sp->word = (char *)0;
  2169. +     } else {
  2170. +     prlex(lex);
  2171. +     printf("%s: Command not found.\n", sp->word);
  2172. +     flush();
  2173. +     }
  2174. + }
  2175.   
  2176.   /*
  2177.    * Hash a command name.
  2178. *** sh.file.c    Sun May 18 23:01:20 1986
  2179. --- /usr/src/local/tcsh/sh.file.c    Mon Aug 17 19:21:52 1987
  2180. ***************
  2181. *** 174,179
  2182.       return (' ');
  2183.   }
  2184.   
  2185.   static struct winsize win;
  2186.   
  2187.   /*
  2188.  
  2189. --- 174,188 -----
  2190.       return (' ');
  2191.   }
  2192.   
  2193. + #ifndef    BSD4_3
  2194. + struct    winsize {
  2195. +     unsigned short    ws_row;
  2196. +     unsigned short    ws_col;
  2197. +     unsigned short    ws_xpixel;
  2198. +     unsigned short    ws_ypixel;
  2199. + };
  2200. + #endif
  2201. + 
  2202.   static struct winsize win;
  2203.   
  2204.   /*
  2205. ***************
  2206. *** 185,190
  2207.   {
  2208.       register int i, rows, r, c, maxwidth = 0, columns;
  2209.   
  2210.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2211.           win.ws_col = 80;
  2212.       for (i = 0; i < count; i++)
  2213.  
  2214. --- 194,200 -----
  2215.   {
  2216.       register int i, rows, r, c, maxwidth = 0, columns;
  2217.   
  2218. + #ifdef    BSD4_3
  2219.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2220.   #endif
  2221.           win.ws_col = 80;
  2222. ***************
  2223. *** 186,191
  2224.       register int i, rows, r, c, maxwidth = 0, columns;
  2225.   
  2226.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2227.           win.ws_col = 80;
  2228.       for (i = 0; i < count; i++)
  2229.           maxwidth = maxwidth > (r = strlen(items[i])) ? maxwidth : r;
  2230.  
  2231. --- 196,202 -----
  2232.   
  2233.   #ifdef    BSD4_3
  2234.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2235. + #endif
  2236.           win.ws_col = 80;
  2237.       for (i = 0; i < count; i++)
  2238.           maxwidth = maxwidth > (r = strlen(items[i])) ? maxwidth : r;
  2239. *** sh.func.c    Tue May 13 01:03:48 1986
  2240. --- /usr/src/local/tcsh/sh.func.c    Thu Sep 24 15:08:48 1987
  2241. ***************
  2242. *** 9,15
  2243.   #endif
  2244.   
  2245.   #include "sh.h"
  2246. ! #include <sys/ioctl.h>
  2247.   
  2248.   /*
  2249.    * C shell
  2250.  
  2251. --- 9,15 -----
  2252.   #endif
  2253.   
  2254.   #include "sh.h"
  2255. ! /* #include <sys/ioctl.h> */
  2256.   
  2257.   /*
  2258.    * C shell
  2259. ***************
  2260. *** 175,181
  2261.       islogin();
  2262.       rechist();
  2263.       (void) signal(SIGTERM, parterm);
  2264. !     execl("/bin/login", "login", v[1], 0);
  2265.       untty();
  2266.       exit(1);
  2267.   }
  2268.  
  2269. --- 175,181 -----
  2270.       islogin();
  2271.       rechist();
  2272.       (void) signal(SIGTERM, parterm);
  2273. !     execl("/bin/login", "login", v[1], (char *) 0);
  2274.       untty();
  2275.       exit(1);
  2276.   }
  2277. ***************
  2278. *** 180,185
  2279.       exit(1);
  2280.   }
  2281.   
  2282.   #ifdef NEWGRP
  2283.   donewgrp(v)
  2284.       char **v;
  2285.  
  2286. --- 180,204 -----
  2287.       exit(1);
  2288.   }
  2289.   
  2290. + dolog()
  2291. + {
  2292. +     extern struct who *wholist;
  2293. +     extern time_t watch_period;
  2294. +     struct who *wp;
  2295. +     struct varent *v;
  2296. + 
  2297. +     if ((v = adrof ("watch")) == (struct varent *) 0)
  2298. +         error ("No $watch variable set");
  2299. +     blkpr (v->vec);
  2300. +     printf ("\n");
  2301. +     watch_period = 0;
  2302. +     wp = wholist;
  2303. +     while (wp != (struct who *) 0) {
  2304. +         wp->w_name[0] = '\0';
  2305. +         wp = wp->w_next;
  2306. +     }
  2307. + }
  2308. + 
  2309.   #ifdef NEWGRP
  2310.   donewgrp(v)
  2311.       char **v;
  2312. ***************
  2313. *** 188,195
  2314.       if (chkstop == 0 && setintr)
  2315.           panystop(0);
  2316.       (void) signal(SIGTERM, parterm);
  2317. !     execl("/bin/newgrp", "newgrp", v[1], 0);
  2318. !     execl("/usr/bin/newgrp", "newgrp", v[1], 0);
  2319.       untty();
  2320.       exit(1);
  2321.   }
  2322.  
  2323. --- 207,214 -----
  2324.       if (chkstop == 0 && setintr)
  2325.           panystop(0);
  2326.       (void) signal(SIGTERM, parterm);
  2327. !     execl("/bin/newgrp", "newgrp", v[1], (char *) 0);
  2328. !     execl("/usr/bin/newgrp", "newgrp", v[1], (char *) 0);
  2329.       untty();
  2330.       exit(1);
  2331.   }
  2332. ***************
  2333. *** 532,538
  2334.           bseek((off_t)0);
  2335.       do {
  2336.           if (intty && fseekp == feobp)
  2337. !             printf("? "), flush();
  2338.           aword[0] = 0;
  2339.           (void) getword(aword);
  2340.           switch (srchx(aword)) {
  2341.  
  2342. --- 551,557 -----
  2343.           bseek((off_t)0);
  2344.       do {
  2345.           if (intty && fseekp == feobp)
  2346. !             printprompt(); /* printf("? "), flush(); */
  2347.           aword[0] = 0;
  2348.           (void) getword(aword);
  2349.           switch (srchx(aword)) {
  2350. ***************
  2351. *** 866,872
  2352.       (void) umask(i);
  2353.   }
  2354.   
  2355. ! 
  2356.   struct limits {
  2357.       int    limconst;
  2358.       char    *limname;
  2359.  
  2360. --- 885,891 -----
  2361.       (void) umask(i);
  2362.   }
  2363.   
  2364. ! #ifndef OREO
  2365.   struct limits {
  2366.       int    limconst;
  2367.       char    *limname;
  2368. ***************
  2369. *** 1074,1079
  2370.       }
  2371.       return (0);
  2372.   }
  2373.   
  2374.   dosuspend()
  2375.   {
  2376.  
  2377. --- 1093,1099 -----
  2378.       }
  2379.       return (0);
  2380.   }
  2381. + #endif OREO
  2382.   
  2383.   #ifdef SVID
  2384.   extern struct termio termiob;
  2385. ***************
  2386. *** 1075,1080
  2387.       return (0);
  2388.   }
  2389.   
  2390.   dosuspend()
  2391.   {
  2392.       int ldisc, ctpgrp;
  2393.  
  2394. --- 1095,1104 -----
  2395.   }
  2396.   #endif OREO
  2397.   
  2398. + #ifdef SVID
  2399. + extern struct termio termiob;
  2400. + #endif SVID
  2401. + 
  2402.   dosuspend()
  2403.   {
  2404.       int ldisc, ctpgrp;
  2405. ***************
  2406. *** 1087,1092
  2407.       (void) kill(0, SIGTSTP);
  2408.       /* the shell stops here */
  2409.       (void) signal(SIGTSTP, old);
  2410.       if (tpgrp != -1) {
  2411.   retry:
  2412.           (void) ioctl(FSHTTY, TIOCGPGRP, (char *)&ctpgrp);
  2413.  
  2414. --- 1111,1117 -----
  2415.       (void) kill(0, SIGTSTP);
  2416.       /* the shell stops here */
  2417.       (void) signal(SIGTSTP, old);
  2418. + #ifdef BSDJOBS
  2419.       if (tpgrp != -1) {
  2420.   retry:
  2421.           (void) ioctl(FSHTTY, TIOCGPGRP, (char *)&ctpgrp);
  2422. ***************
  2423. *** 1099,1104
  2424.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&shpgrp);
  2425.           (void) setpgrp(0, shpgrp);
  2426.       }
  2427.       (void) ioctl(FSHTTY, TIOCGETD, (char *)&oldisc);
  2428.       if (oldisc != NTTYDISC) {
  2429.           printf("Switching to new tty driver...\n");
  2430.  
  2431. --- 1124,1141 -----
  2432.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&shpgrp);
  2433.           (void) setpgrp(0, shpgrp);
  2434.       }
  2435. + #endif BSDJOBS
  2436. + 
  2437. + #ifdef SVID
  2438. +     (void) ioctl(FSHTTY, TCGETA, &termiob);
  2439. +     if (termiob.c_cc[VSWTCH] != CSWTCH) {
  2440. + #ifdef DEBUG
  2441. +         printf ("Setting ^Z...\n");
  2442. + #endif DEBUG
  2443. +         termiob.c_cc[VSWTCH] = CSWTCH;
  2444. +         (void) ioctl(FSHTTY, TCSETA, &termiob);
  2445. +     }
  2446. + #else SVID
  2447.       (void) ioctl(FSHTTY, TIOCGETD, (char *)&oldisc);
  2448.       if (oldisc != NTTYDISC) {
  2449.           printf("Switching to new tty driver...\n");
  2450. ***************
  2451. *** 1105,1110
  2452.           ldisc = NTTYDISC;
  2453.           (void) ioctl(FSHTTY, TIOCSETD, (char *)&ldisc);
  2454.       }
  2455.   }
  2456.   
  2457.   doeval(v)
  2458.  
  2459. --- 1142,1148 -----
  2460.           ldisc = NTTYDISC;
  2461.           (void) ioctl(FSHTTY, TIOCSETD, (char *)&ldisc);
  2462.       }
  2463. + #endif SVID
  2464.   }
  2465.   
  2466.   doeval(v)
  2467. ***************
  2468. *** 1146,1148
  2469.       if (reenter >= 2)
  2470.           error(NOSTR);
  2471.   }
  2472.  
  2473. --- 1184,1366 -----
  2474.       if (reenter >= 2)
  2475.           error(NOSTR);
  2476.   }
  2477. + 
  2478. + /*
  2479. +  * kfk - added scheduled event functions
  2480. +  */
  2481. + struct sched_event *sched_ptr;
  2482. + 
  2483. + dosched(v)
  2484. +     register char **v;
  2485. + {
  2486. +     register struct sched_event *tp, *tp1, *tp2;
  2487. +     long cur_time;
  2488. +     int count, hours, minutes, dif_hour, dif_min;
  2489. +     char *cp;
  2490. +     bool relative;        /* time specified as +hh:mm */
  2491. +     struct tm *ltp;
  2492. +     char *timeline;
  2493. +     char *ctime();
  2494. + 
  2495. +     v++;
  2496. +     cp = *v++;
  2497. +     if (cp == (char *) 0) {
  2498. +         /* print list of scheduled events */
  2499. +         for (count = 1, tp = sched_ptr; tp; count++, tp = tp->t_next) {
  2500. +             timeline = ctime(&tp->t_when);
  2501. +             timeline[16] = '\0';
  2502. +             printf ("%6d\t%s\t", count, timeline);
  2503. +             blkpr (tp->t_lex);
  2504. +             printf ("\n");
  2505. +         }
  2506. +         return;
  2507. +     }
  2508. + 
  2509. +     if (*cp == '-') {
  2510. +         /* remove item from list */
  2511. +         if (!sched_ptr)
  2512. +             error ("No scheduled events");
  2513. +         if (*v)
  2514. +             error ("Too many args for 'sched -<item#>'");
  2515. +         count = atoi (++cp);
  2516. +         if (count <= 0)
  2517. +             error ("Usage to delete: sched -<item#>");
  2518. +         tp = sched_ptr;
  2519. +         tp1 = 0;
  2520. +         while (--count) {
  2521. +             if (tp->t_next == 0)
  2522. +                 break;
  2523. +             else {
  2524. +                 tp1 = tp;
  2525. +                 tp = tp->t_next;
  2526. +             }
  2527. +         }
  2528. +         if (count)
  2529. +             error ("Not that many scheduled events");
  2530. +         if (tp1 == 0)
  2531. +             sched_ptr = tp->t_next;
  2532. +         else
  2533. +             tp1->t_next = tp->t_next;
  2534. +         blkfree (tp->t_lex);
  2535. +         xfree ((char *) tp);
  2536. +         return;
  2537. +     }
  2538. + 
  2539. +     /* else, add an item to the list */
  2540. +     if (!*v)
  2541. +         error ("No command to run");
  2542. +     relative = 0;
  2543. +     if (!digit(*cp)) {        /* not abs. time */
  2544. +         if (*cp != '+')
  2545. +             error ("Usage: sched [+]hh:mm <command>");
  2546. +         cp++, relative++;
  2547. +     }
  2548. +     minutes = 0;
  2549. +     hours = atoi(cp);
  2550. +     while (*cp && *cp != ':' && *cp != 'a' && *cp != 'p')
  2551. +         cp++;
  2552. +     if (*cp && *cp == ':')
  2553. +         minutes = atoi(++cp);
  2554. +     if ((hours < 0) || (minutes < 0) ||
  2555. +         (hours > 23) || (minutes > 59))
  2556. +         error ("Invalid time for event");
  2557. +     while (*cp && *cp != 'p' && *cp != 'a')
  2558. +         cp++;
  2559. +     if (*cp && relative)
  2560. +         error ("Relative time inconsistent with am/pm");
  2561. +     if (*cp == 'p')
  2562. +         hours += 12;
  2563. +     time(&cur_time);
  2564. +     ltp = localtime(&cur_time);
  2565. +     if (relative) {
  2566. +         dif_hour = hours;
  2567. +         dif_min = minutes;
  2568. +     } else {
  2569. +         if ((dif_hour = hours - ltp->tm_hour) < 0)
  2570. +             dif_hour += 24;
  2571. +         if ((dif_min = minutes - ltp->tm_min) < 0) {
  2572. +             dif_min += 60;
  2573. +             if ((--dif_hour) < 0)
  2574. +                 dif_hour = 23;
  2575. +         }
  2576. +     }
  2577. +     tp = (struct sched_event *) calloc (1, sizeof *tp);
  2578. +     tp->t_when = cur_time - ltp->tm_sec + dif_hour*3600L + dif_min*60L;
  2579. +             /* use of tm_sec: get to beginning of minute. */
  2580. +     if (!sched_ptr || tp->t_when < sched_ptr->t_when) {
  2581. +         tp->t_next = sched_ptr;
  2582. +         sched_ptr = tp;
  2583. +     } else {
  2584. +         tp1 = sched_ptr->t_next;
  2585. +         tp2 = sched_ptr;
  2586. +         while (tp1 && tp->t_when >= tp1->t_when) {
  2587. +             tp2 = tp1;
  2588. +             tp1 = tp1->t_next;
  2589. +         }
  2590. +         tp->t_next = tp1;
  2591. +         tp2->t_next = tp;
  2592. +     }
  2593. +     tp->t_lex = saveblk(v);
  2594. + }
  2595. + 
  2596. + /*
  2597. +  * Execute scheduled events
  2598. +  */
  2599. + sched_run()
  2600. + {
  2601. +     long    cur_time;
  2602. +     register struct sched_event *tp, *tp1;
  2603. +     struct wordent cmd, *nextword, *lastword;
  2604. +     struct command *t = (struct command *) 0;
  2605. +     char **v, *cp;
  2606. +     extern int GettingInput;
  2607. +     int    omask;
  2608. + 
  2609. +     omask = sighold (SIGINT);
  2610. +        
  2611. +         if (GettingInput)
  2612. +         Cookedmode();
  2613. + 
  2614. +     time(&cur_time);
  2615. +     tp = sched_ptr;
  2616. +     while (tp && tp->t_when < cur_time) {
  2617. +         err = NOSTR;
  2618. +         cmd.word = "";
  2619. +         lastword = &cmd;
  2620. +         v = tp->t_lex;
  2621. +         for (cp = *v; cp; cp = *++v) {
  2622. +             nextword = (struct wordent *) calloc (1, sizeof cmd);
  2623. +             nextword->word = savestr (cp);
  2624. +             lastword->next = nextword;
  2625. +             nextword->prev = lastword;
  2626. +             lastword = nextword;
  2627. +         }
  2628. +         lastword->next = &cmd;
  2629. +         cmd.prev = lastword;
  2630. +         tp1 = tp;
  2631. +         sched_ptr = tp = tp1->t_next;    /* looping termination cond: */
  2632. +         blkfree (tp1->t_lex);        /* straighten out in case of */
  2633. +         xfree ((char *) tp1);        /* command blow-up. */
  2634. + 
  2635. +         /* expand aliases like process() does. */
  2636. +         alias (&cmd);
  2637. +         /* build a syntax tree for the command. */
  2638. +         t = syntax (cmd.next, &cmd, 0);
  2639. +         if (err)
  2640. +             error (err);
  2641. +         /* execute the parse tree. */
  2642. +         execute (t, -1);
  2643. +         /* done. free the lex list and parse tree. */
  2644. +         freelex (&cmd), freesyn (t);
  2645. +     }
  2646. +         if (GettingInput) {    /* PWP */
  2647. +         Rawmode();
  2648. +         ClearLines();    /* do a real refresh since something may */
  2649. +         ClearDisp();    /* have printed to the screen */
  2650. +         Refresh();
  2651. +     }
  2652. + 
  2653. +     sigsetmask(omask);
  2654. + }
  2655. + /* kfk - end change */
  2656. + 
  2657. SHAR_EOF
  2658. fi
  2659. exit 0
  2660. #    End of shell archive
  2661.